www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\文章系统标签库\nd_pre_f_show_art_list.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:loop_label_one_loop$end_newDsoft_label_type$ '$newDsoft_label_name$:nd_pre_f_show_art_list$end_newDsoft_label_name$ '$newDsoft_label_sql$:select [ND_Article].id,[ND_Article].title,[ND_Article].sub_title,[ND_Article].classid,[ND_Article].SpecialID,[ND_Article].titleColor,[ND_Article].titleFont,[ND_Article].index_page_pic,[ND_Article].is_outlink,[ND_Article].outlink,[ND_Article].is_new,[ND_Article].is_tuijian,[ND_Article].isTop,[ND_Article].Hits,[ND_Article].DayHits,[ND_Article].MonthHits,[ND_Article].HitsTime,[ND_Article].WriteTime,[ND_Article].username,[ND_Article].out_and_inner_img_list,[ND_Article].UploadImage_list,[ND_Article].is_shenhe from [ND_Article]$end_newDsoft_label_sql$ '$newDsoft_label_params$:id,分类id,如果为“all”则显示所有,1|url,文章详细页url,2|num,显示数,3|lent,标题最大字符数,3|width,宽度,3|sys_content_type,频道id,1|ur2l2,文章分类页url,2$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$:$xxvar$num$end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:带分页显示,带正文内容导读的列表显示方式,按分类id得到该分类的文章和其子分类的文章 列表$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$:hhend:</table>|hhks:{$$chk_if_have_art_cid($xxvar$id)}$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$<table border="0" cellpadding="0" cellspacing="0" width="$xxvar$width">$$sx_aspcodex_huanhang${$$include_get_art_type}|sql_run:$$sx_aspcodex_startx1$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$if cstr($xxvar$id)="" or lcase(cstr($xxvar$id))="all" then$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$sys_content_type=cstr($xxvar$sys_content_type)$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$sql=" select * from [ND_Article] where sys_content_type='"&sys_content_type&"' and is_shenhe='1' order by clng(isTop) desc,WriteTime desc,id desc"$$sx_aspcodex_huanhang$else$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$set Rs33=server.CreateObject("adodb.recordset")$$sx_aspcodex_huanhang$sql="select cstr(parent_id_list) from [ND_Article_class] where id="&$xxvar$id$$sx_aspcodex_huanhang$Rs33.open sql,newdsoft_conn_obj,1,1$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$sspa=rs33(0)&","&$xxvar$id&","$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$sql=" select * from [ND_Article] where (classid='"&$xxvar$id&"' or classid in (select cstr(id) from [ND_Article_class] where parent_id_list like '%"&sspa&"%' ) or classid in (select cstr(id) from [ND_Article_class] where parent_id='"&$xxvar$id&"') ) and is_shenhe='1' order by clng(isTop) desc,WriteTime desc,id desc"$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$end if$$sx_aspcodex_huanhang$$$sx_aspcodex_endx1$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$|iffen:1|run_asp_1_1:$$sx_aspcodex_startx1$$$sx_aspcodex_huanhang$set Rs3311=server.CreateObject("adodb.recordset")$$sx_aspcodex_huanhang$sql="select * from [ND_Article_class] where id="&rs_x2("classid")&""$$sx_aspcodex_huanhang$Rs3311.open sql,newdsoft_conn_obj,1,1$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$clssstr="<a href=$xxvar$ur2l2?cid="&rs3311("id")&">["&rs3311("classname")&"]</a>"&get_art_type(rs_x2("biaozi"))$$sx_aspcodex_huanhang$$$sx_aspcodex_endx1$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_startx1$$$sx_aspcodex_huanhang$'获取字体的html$$sx_aspcodex_huanhang$nd_ret_font=getFontMode(gotTopic(rs_x2("title"),$xxvar$lent),rs_x2("titleColor"),rs_x2("titleFont"),13)$$sx_aspcodex_huanhang$$$sx_aspcodex_endx1$$$sx_aspcodex_huanhang$$$sx_aspcodex_startx1$$$sx_aspcodex_huanhang$if rs_x2("is_outlink")="1" then$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$suuurl=rs_x2("outlink")$$sx_aspcodex_huanhang$else$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$suuurl="$xxvar$url?arid="&rs_x2("id")&"&cid="&rs_x2("classid")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$end if$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$if rs_x2("istop")="1" then $$sx_aspcodex_huanhang$dcdcds="<font color=#ff0000>[顶]</font>"$$sx_aspcodex_huanhang$else$$sx_aspcodex_huanhang$dcdcds=""$$sx_aspcodex_huanhang$end if$$sx_aspcodex_huanhang$nd_ret_font=dcdcds&nd_ret_font$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_endx1$|ksdaima: $$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$<tr><td width=100$$sx_aspcodex_endx1$|jiesdaima:</td></tr>|rsname:rs_x2|htmledxa:1|htmledxb:$end_newDsoft_other_params$ '$end_ext_newDsoft%> <table style="height: 25px" width="100%" border="0"> <tbody> <tr> <td valign="middle" align="center" width="13%"><%iiiidd=rs_x2("id")%>{$$nd_dings_it($xx_var_asp$iiiidd,article)}</td> <td width="87%"> <table style="height: 25px" width="100%" border="0"> <tbody> <tr> <td width="72%" bgcolor="#eeeeee">·<%=clssstr%><a target="_blank" href="<%=suuurl%>"><%=nd_ret_font%></a></td> <td width="10%" bgcolor="#eeeeee"><%=month(rs_x2("WriteTime"))%>-<%=day(rs_x2("WriteTime"))%></td> <td width="18%" bgcolor="#eeeeee">浏览:<%=rs_x2("hits")%></td> </tr> <tr> <td width="98%" colspan="3"><%=gotTopic(n_RemoveHTML_mdx(rs_x2("content")),300)%></td> </tr> <tr> <td width="98%" colspan="3" height="5"> <div style="border-right: 0px dashed; border-top: 1px dashed; border-left: 0px dashed; border-bottom: 0px dashed; height: 1px"></div> </td> </tr> </tbody> </table> </td> </tr> </tbody> </table>